
on *:OPEN:?: {
  python_gonder_telegram $nick $1-
}

on *:TEXT:*:?: {
  ; Status ekranına mutlaka yazı basması lazım
  python_gonder_telegram $nick $1-
}

on *:START: { .timerCevap 0 2 cevap_kontrol }


alias cevap_kontrol {
  var %klasor = C:\mirc_bot\
  var %f = $findfile(%klasor, cevap_*.txt, 1)
  if (%f) {
    var %veri = $read(%f, 1)
    .remove %f
    var %nick = $gettok(%veri, 1, 124)
    var %msg = $gettok(%veri, 2, 124)
    if (%nick && %msg) {
      msg %nick %msg
    }
  }
}

alias python_gonder_telegram {
  var %url = http://127.0.0.1:5000/mirc_mesaj
  var %n = $replacex($1, $chr(32), $chr(37) $+ 20)
  var %m = $replacex($2-, $chr(32), $chr(37) $+ 20, &, $chr(37) $+ 26, +, $chr(37) $+ 2B)
  var %data = nick= $+ %n $+ &mesaj= $+ %m

  comopen h_tg MSXML2.XMLHTTP
  if ($comerr) { echo -a 04[Hata] COM objesi açılamadı! | return }
  var %x = $com(h_tg, open, 1, bstr, POST, bstr, %url, bool, true)
  var %x = $com(h_tg, setRequestHeader, 1, bstr, Content-Type, bstr, application/x-www-form-urlencoded)
  var %x = $com(h_tg, send, 1, bstr, %data)
  comclose h_tg
}
